#!/usr/local/bin/perl
use warnings;
$score = 0;
sub main()
{
$integerA = 0;

$stringB = "";
$stringB = "0";

print $stringB;

return $integerA;
}

print main()."\n";
